home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / pibterm / pibt41s4.arc / TRAPERRO.MOD < prev    next >
Encoding:
Text File  |  1987-11-10  |  1.9 KB  |  34 lines
  1. (*----------------------------------------------------------------------*)
  2. (*     Trap_Error --- Trap errors and transfer to real error handler    *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Trap_Error( ErrNo , ErrAddr : INTEGER );
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Trap_Error                                           *)
  10. (*                                                                      *)
  11. (*     Purpose:    Handles PibTerm program aborts                       *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Trap_Error( ErrNo , ErrAddr : INTEGER );                      *)
  16. (*                                                                      *)
  17. (*           ErrNo    --- error number/type                             *)
  18. (*           ErrAddr  --- address where error occurred                  *)
  19. (*                                                                      *)
  20. (*     Remarks:                                                         *)
  21. (*                                                                      *)
  22. (*        This routine simply calls the genuine error handler procedure *)
  23. (*        ERROR_HANDLER.  Trap_Error exists to allow the non-main       *)
  24. (*        modules in PibTerm access to the error handler in the main    *)
  25. (*        module.                                                       *)
  26. (*                                                                      *)
  27. (*----------------------------------------------------------------------*)
  28.  
  29. BEGIN (* Trap_Error *)
  30.  
  31.    Error_Handler( ErrNo, ErrAddr );
  32.    
  33. END   (* Trap_Error *);
  34.